home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / ifsdemo / bitstuff.def next >
Text File  |  1990-02-02  |  758b  |  32 lines
  1. DEFINITION MODULE BitStuff;
  2.  
  3. (* Bitwise logical operators for integers - 12/29/87 - Michael A. Long *)
  4.  
  5. PROCEDURE BitAnd(a,b : INTEGER) : INTEGER;
  6.  
  7.    (* Performs a bitwise AND of integers a and b *)
  8.  
  9. PROCEDURE BitOr(a,b : INTEGER) : INTEGER;
  10.  
  11.    (* Performs a bitwise OR of integers a and b *)
  12.  
  13. PROCEDURE BitXor(a,b : INTEGER) : INTEGER;
  14.  
  15.    (* Performs a bitwise XOR of integers a and b *)
  16.  
  17. PROCEDURE SetBit(bit       : INTEGER;
  18.                  VAR field : INTEGER);
  19.  
  20.    (* Sets bit in field *)
  21.  
  22. PROCEDURE ClearBit(bit       : INTEGER;
  23.                    VAR field : INTEGER);
  24.  
  25.    (* Clears bit in field *)
  26.  
  27. PROCEDURE TestBit(bit,field : INTEGER) : BOOLEAN;
  28.  
  29.    (* Tests bit in field. Returns TRUE if set. *)
  30.  
  31. END BitStuff.
  32.